;stack
(setf s '(a)
			b 1)
(format t "~A after push ~A is : ~A~%" s 'b (push 'b s))
(format t "before pop is ~A, poped item is ~A, after poped is ~A~%" s (pop s) s)
